(rmail-output-body-to-file): Avoid space and colon in default file name.

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 4984fd7454f27b3ce89ea816034609da0818cac1..9b988dd28634c911d976b3e2d9ff51669a6ed475 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -568,6 +568,10 @@ FILE-NAME defaults, interactively, from the Subject field of the message."
    (let ((default-file
           (or (mail-fetch-field "Subject")
               rmail-default-body-file)))
+     (setq default-file
+          (replace-regexp-in-string ":" "-" default-file))
+     (setq default-file
+          (replace-regexp-in-string " " "-" default-file))
      (list (setq rmail-default-body-file
                 (read-file-name
                  "Output message body to file: "